home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 February / 64er_Magazin_85-02_1985_Markt__Technik_de.d64 / restore up (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  742b  |  40 lines
  1. 1 rem    ************************
  2. 2 rem    *         demo         *
  3. 3 rem    *  subroutine-restore  *
  4. 4 rem    ************************
  5. 5 print"[147]      taste druecken !"
  6. 6 print:print
  7. 10 x=int(rnd(ti)*3)+1
  8. 20 onxgosub1000,2000,3000
  9. 25 poke65,peek(122):poke66,peek(123)
  10. 30 read a$:printa$
  11. 50 data " hauptprg."
  12. 100 goto10
  13. 1000 rem   *** subroutine 1 ***
  14. 1005 :
  15. 1010 poke65,peek(122):poke66,peek(123)
  16. 1020 fori=1to4:reada:printa;:next
  17. 1030 reada$:printa$;
  18. 1040 poke198,0:wait198,1
  19. 1050 data 1,11,111,1111,"up1  "
  20. 1060 return
  21. 1070 :
  22. 2000 rem   *** subroutine 2 ***
  23. 2005 :
  24. 2010 poke65,peek(122):poke66,peek(123)
  25. 2020 fori=1to4:reada:printa;:next
  26. 2030 reada$:printa$;
  27. 2040 poke198,0:wait198,1
  28. 2050 data 2,22,222,2222,"up 2 "
  29. 2060 return
  30. 2070 :
  31. 3000 rem   *** subroutine 3 ***
  32. 3005 :
  33. 3010 poke65,peek(122):poke66,peek(123)
  34. 3020 fori=1to4:reada:printa;:next
  35. 3030 reada$:printa$;
  36. 3040 poke198,0:wait198,1
  37. 3050 data 3,33,333,3333,"up  3"
  38. 3060 return
  39. 3070 :
  40.